home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 5-Fonts & Software / Applications / DesignStudio / DesignStudio™ 1.01 / DesignStudio™ 1.01.rsrc / PSCD_272 < prev    next >
Text File  |  1990-08-09  |  190b  |  10 lines
  1. 4 dict begin
  2. /gw 2 def/bw 22 def
  3. currentpoint/bY exch def/cX exch def
  4. 0 .1 .9{setgray bw 0 rlineto
  5. 0 bw rlineto bw neg 0 rlineto
  6. closepath fill
  7. /cX cX bw gw add add def
  8. cX bY moveto}for
  9. end
  10.